Ì i 2
main
[version,code]
*(DRG)DRC[djc,drc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 5 FREE L drc
active 1 YN L *(DRG)DRC[djc,drc]|0
can.extent.attrib 3 FREE L *(DRG)DRC[djc,drc]E|0
can.loc.attrib 3 FREE L *(DRG)DRC[djc,drc]L|0
can.status.attrib 3 FREE L *(DRG)DRC[djc,drc]S|0
confidential.data 1 YN L *(DRG)DRC[djc,drc]CF
descriptor.only 1 YN L *(DRG)DRC[djc,drc]|2
last.user 10 FREE L MIS.USER *(DRG)DRC[djc,drc]USR
location 1 CHOICE L *(DRG)DRC[djc,drc]|3
name 60 FREE L *(DRG)DRC[djc,drc]|1
name.50 50 FREE L VAL=(@ABS.PROC.name$50)
name.real 60 FREE L VAL=@name$L(@name,"* DO NOT USE *"):"S"
non.or.attributes 10 FREE L *(DRG)DRC[djc,drc]|5
or.attributes 10 FREE L *(DRG)DRC[djc,drc]|4
other.biliary.tract 1 YN L *(DRG)DRC[djc,drc]|6
Ì € i 2
alt.desc.grps
[version,code, alt.desc.grp]
*(DRG)DRC[djc,drc]N[drh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.desc.grp 15 FREE L ABS.ALT.DESCGRPdrh
alt.desc.grp.name 60 FREE L *(DRG)DRC[djc,drc]N[drh]|0
alt.desc.grp.name.50 50 FREE L VAL=(@ABS.PROC.alt.desc.grp.name$50)
Ì € i 2
can.extent.attrib.vals
[version,code, can.extent.attrib.val]
*(DRG)DRC[djc,drc]E[drcEA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.extent.attrib.val 2 FREE L drcEA
can.extent.att.val.desc 60 FREE L VAL=@ABS.CAN.CCI.ATT.cci.attrib.descr.short[,@can.exte
VAL=nt.attrib,can.extent.attrib.val]
Ì € i 2
can.loc.attrib.vals
[version,code, can.loc.attrib.val]
*(DRG)DRC[djc,drc]L[drcLA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.loc.attrib.val 2 FREE L drcLA
can.loc.att.val.desc 60 FREE L VAL=@ABS.CAN.CCI.ATT.cci.attrib.descr.short[,@can.loc.
VAL=attrib,can.loc.attrib.val]
Ì € i 2
can.status.attrib.vals
[version,code, can.status.attrib.val]
*(DRG)DRC[djc,drc]S[drcSA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
can.status.attrib.val 2 FREE L drcSA
can.status.att.val.desc 60 FREE L VAL=@ABS.CAN.CCI.ATT.cci.attrib.descr.short[,@can.stat
VAL=us.attrib,can.status.attrib.val]
Ì € i 2
cci.description.long
[version,code, name.line.no]
*(DRG)DRC[djc,drc]D[drcLN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
name.line.no 1 PINT R drcLN
name.long 60 TEXT L *(DRG)DRC[djc,drc]D[drcLN]
Ì € i 2
screen.edits
[version,code, screen.edit]
*(DRG)DRC[djc,drc]SE[dje]
Field Name Len Dat Typ J DPM Offset/Local/VAL
screen.edit 10 FREE L ABS.SCRN.EDIT dje
screen.edit.check 10 FREE L *(DRG)DRC[djc,drc]SE[dje]|0
Index Files Subscripts/Physical Base
alt.desc.grp.index [alt.desc.grp,version,code]
*(DRG)DRCX[drh,djc,drc]
confid.x [version,code]
*(DRG)DRCC[djc,drc]
name.index [version,name,code,alt.desc.grp]
*(DRG)DRCA[djc,drcN,drc,drh]
|
|
| | | | | |